$x=123456789;
$y=362436069;
$z=21288629;
$w=14921776;
$c=0; 
$rno=KISS32();
print $rno;
sub KISS32 {
my $t=0;
$x += 545925293; 
$y ^= ($y << 13); 
$y ^= ($y >> 17); 
$y ^= (y << 5); 
$t = $z+$w+$c; 
$z = $w;
$c=$t; 
$c >>= 31 ;
#$w = $t; 
#$w &= 2147483647;

return($x+$y+$w);
}

